home *** CD-ROM | disk | FTP | other *** search
/ Rokenbok 2.7 / Rokenbok CD Vol-2.7z / Rokenbok CD Vol-2.iso / cdo3.asp < prev    next >
Text File  |  2001-03-08  |  538b  |  23 lines
  1. <%
  2.  
  3. If request.form("towho") <> "" then
  4. Set objMail = Server. CreateObject ("CDONTS.NewMail")
  5. objMail.Send request.form("towho"), request.form("towho") , "CDONTS-TEST", "This is a test of CDONTS" , 2
  6. Set objMail = Nothing
  7. response.write ("<b><center>Your message has been sent</center></b>")
  8. end if
  9.  
  10.  
  11. %>
  12.  
  13. <hr>
  14. <form method="post" action="cdo3.asp">
  15. This is a test of CDONTS:<p>
  16. Please Enter your Email address:<input type="text" name="towho"><p>
  17. <input type="submit" Value="Click Here to Send Test">
  18. <hr>
  19. </form>
  20.  
  21.  
  22.  
  23.